#!/usr/bin/env perl

use 5.14.2;

use Chart::Clicker;
use Chart::Clicker::Renderer::CandleStick;
use Chart::Clicker::Renderer::StackedBar;
use Chart::Clicker::Decoration::Legend::Tabular;
use Number::Format;

my $CHART_WIDTH       = '600';
my $MAIN_CHART_HEIGHT = '300';
my $SUB_CHART_HEIGHT  = '100';

#my $AXIS_DIVVY_TYPE = 'Exact';
#my $AXIS_DIVVY_TYPE = 'LinearRounded';
my $AXIS_DIVVY_TYPE = 'LinearExpandGraph';

# Necessary for alignment because the subgraph and main
# graph may have different widths
my $MINIMUM_AXIS_WIDTH = 75;

my %GRAPH_DATA = (
    price  => [ 28.20,  29,  29,  31.8,  30,  29,  27.50 ],     # Sample price data
    volume => [ 100, 200, 250, 300, 200, 100, 350 ],    # Sample volume data
    day_of_week => [ 1 .. 7 ],
);

my $cc = Chart::Clicker->new( format => 'png', width => $CHART_WIDTH, height => $MAIN_CHART_HEIGHT );
$cc->title->text('Price and Volume Chart');

# Add the volume subgraph
my $cvolumebar = Chart::Clicker->new( width => $CHART_WIDTH, height => $SUB_CHART_HEIGHT );
$cvolumebar->legend->visible(0);
$cc->add_subgraph($cvolumebar);

my $pricectx  = $cc->get_context('default');
my $volumectx = $cvolumebar->get_context('default');

my $priceSeries = Chart::Clicker::Data::Series->new(
    keys   => $GRAPH_DATA{'day_of_week'},
    values => $GRAPH_DATA{'price'},
    name   => 'Price'
);
my $priceDataSet = Chart::Clicker::Data::DataSet->new( series => [$priceSeries] );
$priceDataSet->context('default');
$cc->add_to_datasets($priceDataSet);

my $volumeSeries = Chart::Clicker::Data::Series->new(
    keys   => $GRAPH_DATA{'day_of_week'},
    values => $GRAPH_DATA{'volume'},
    name   => 'Volume',

);
my $volumeDataSet = Chart::Clicker::Data::DataSet->new(
    series => [$volumeSeries],
    lower  => 0
);
$volumeDataSet->context('default');
$cvolumebar->add_to_datasets($volumeDataSet);

$cc->plot->grid->visible(1);
$cvolumebar->plot->grid->visible(1);


$pricectx->range_axis->tick_division_type($AXIS_DIVVY_TYPE);
$pricectx->range_axis->label(q{Price});
$pricectx->range_axis->show_ticks(1);
$pricectx->range_axis->ticks(3);
$pricectx->range_axis->fudge_amount(0.01);
$pricectx->range_axis->minimum_width($MINIMUM_AXIS_WIDTH);

$pricectx->domain_axis->tick_division_type($AXIS_DIVVY_TYPE);
$volumectx->domain_axis->tick_division_type($AXIS_DIVVY_TYPE);
$pricectx->domain_axis->label('Day of Month');

$volumectx->range_axis->tick_division_type($AXIS_DIVVY_TYPE);
$volumectx->range_axis->label(q{Volume});
$volumectx->range_axis->ticks(2);
$volumectx->range_axis->minimum_width($MINIMUM_AXIS_WIDTH);

# Ensure the volume axis begins from 0. The default is to begin
# from the smallest volume given, which is 100 in this example
$volumectx->range_axis->range->lower(0);

# Keep vertical tick grid but skip the labels. 
$volumectx->domain_axis->show_ticks(1);
$volumectx->domain_axis->format( sub { return q{} });

# Render price as a line
$pricectx->renderer( Chart::Clicker::Renderer::Line->new() );

# Render volume as a bar
$volumectx->renderer( Chart::Clicker::Renderer::StackedBar->new() );

$cc->write_output(lc($AXIS_DIVVY_TYPE) .'.png');